* net/tramp-smb.el (tramp-smb-handle-copy-file)

(tramp-smb-handle-rename-file): Delete temporary file in case of
quit.

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index b9dc8731215d54413c727262813f115494f1a519..41f4c25318a4e982912477539cb8d30b236dc069 100644 (file)
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -218,8 +218,9 @@ PRESERVE-UID-GID is completely ignored."
        ;; Remote filename.
        (condition-case err
            (rename-file tmpfile newname ok-if-already-exists)
-         (error (delete-file tmpfile)
-                (signal (car err) (cdr err))))
+         ((error quit)
+          (delete-file tmpfile)
+          (signal (car err) (cdr err))))
 
       ;; Remote newname.
       (when (file-directory-p newname)
@@ -554,8 +555,9 @@ PRESERVE-UID-GID is completely ignored."
        ;; Remote filename.
        (condition-case err
            (rename-file tmpfile newname ok-if-already-exists)
-         (error (delete-file tmpfile)
-                (signal (car err) (cdr err))))
+         ((error quit)
+          (delete-file tmpfile)
+          (signal (car err) (cdr err))))
 
       ;; Remote newname.
       (when (file-directory-p newname)